NY Times US States Data Analysis
shutdown <- read_ods("../COVID-19-uscovid19.org/us_shutdown.ods")
## Parsed with column specification:
## cols(
## State = col_character(),
## Governor = col_character(),
## Party = col_character(),
## Shutdown = col_character()
## )
shutdown$Shutdown <-lubridate::mdy(shutdown$Shutdown)
shutdown$Delay <- shutdown$Shutdown - as.Date("2020-01-21")
sd <- shutdown %>% ggplot() + geom_col(aes(x=Delay,y=reorder(State,Delay))) +
labs(title="Elasped Days from First Confirmed Case(WA)",
x="Delayed in Days",y="US States(and DC",
caption ="(Shutdown Dates = https://www.nbcnews.com)")
ggplotly(sd)
## Don't know how to automatically pick scale for object of type difftime. Defaulting to continuous.
## Warning: Removed 5 rows containing missing values (position_stack).
Summary of Cases,Deaths and Death Rate by Date
Summary of Cases and Deaths by State
Summary of Ohio Deaths and Cases